Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue61/Clinic/Object Browser/ObjectBrowserFormU.dfm/ObjectBrowserFormU.txt

Text File | 2000-03-29 | 5.8 KB | 272 lines

object ObjectBrowserForm: TObjectBrowserForm
  Left = 313
  Top = 64
  Width = 650
  Height = 663
  Caption = 'Object Browser'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Visible = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 422
    Top = 0
    Width = 3
    Height = 617
    Cursor = crHSplit
    Align = alRight
  end
  object TPanel
    Left = 425
    Top = 0
    Width = 217
    Height = 617
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    OnResize = ObjectInspectorResize
    object GrdProp: TStringGrid
      Left = 0
      Top = 22
      Width = 217
      Height = 595
      Align = alClient
      BorderStyle = bsNone
      Color = clBtnFace
      ColCount = 2
      DefaultColWidth = 107
      DefaultRowHeight = 16
      RowCount = 1
      FixedRows = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
      TabOrder = 0
      OnDblClick = GrdPropDblClick
      OnMouseDown = GrdPropMouseDown
      OnSelectCell = GrdPropSelectCell
    end
    object TCPropType: TTabControl
      Left = 0
      Top = 0
      Width = 217
      Height = 22
      Align = alTop
      TabIndex = 0
      TabOrder = 1
      Tabs.Strings = (
        'Properties'
        'Events')
      OnChange = TCPropTypeChange
    end
    object edtPropValue: TEdit
      Left = 48
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 2
      Visible = False
      OnKeyDown = edtPropValueKeyDown
      OnKeyPress = edtPropValueKeyPress
    end
  end
  object TPanel
    Left = 0
    Top = 0
    Width = 422
    Height = 617
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter2: TSplitter
      Left = 0
      Top = 345
      Width = 422
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object TPanel
      Left = 0
      Top = 0
      Width = 422
      Height = 345
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object TvOwnerHierarchy: TTreeView
        Left = 0
        Top = 32
        Width = 422
        Height = 313
        ReadOnly = True
        Indent = 19
        OnChange = TvHierarchyChange
        Align = alClient
        TabOrder = 0
        PopupMenu = mnuOwnerHierarchy
      end
      object TPanel
        Left = 0
        Top = 0
        Width = 422
        Height = 32
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 10
          Width = 96
          Height = 13
          Caption = 'Ownership hierarchy'
        end
        object BtnUpdate: TButton
          Left = 118
          Top = 4
          Width = 75
          Height = 25
          Caption = '&Update'
          TabOrder = 0
          OnClick = BtnUpdateClick
        end
      end
    end
    object TPanel
      Left = 0
      Top = 348
      Width = 422
      Height = 269
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter3: TSplitter
        Left = 208
        Top = 0
        Width = 3
        Height = 269
        Cursor = crHSplit
      end
      object TPanel
        Left = 0
        Top = 0
        Width = 208
        Height = 269
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object TPanel
          Left = 0
          Top = 0
          Width = 208
          Height = 22
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object Label2: TLabel
            Left = 6
            Top = 4
            Width = 104
            Height = 13
            Caption = 'Parent/child hierarchy'
          end
        end
        object TvChildrenHierarchy: TTreeView
          Left = 0
          Top = 22
          Width = 208
          Height = 247
          ReadOnly = True
          Indent = 19
          OnChange = TvHierarchyChange
          Align = alClient
          TabOrder = 1
        end
      end
      object TPanel
        Left = 211
        Top = 0
        Width = 211
        Height = 269
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object TPanel
          Left = 0
          Top = 0
          Width = 211
          Height = 22
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object Label3: TLabel
            Left = 6
            Top = 4
            Width = 99
            Height = 13
            Caption = 'Inheritance hierarchy'
          end
        end
        object LstClassHierarchy: TListBox
          Left = 0
          Top = 22
          Width = 211
          Height = 247
          Align = alClient
          ItemHeight = 13
          TabOrder = 1
        end
      end
    end
  end
  object Bar: TStatusBar
    Left = 0
    Top = 617
    Width = 642
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object mnuOwnerHierarchy: TPopupMenu
    Left = 208
    Top = 160
    object itmHighlightControl: TMenuItem
      Caption = '&Highlight selected control'
      Checked = True
      ShortCut = 16456
      OnClick = MenuItemClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object itmShowActions: TMenuItem
      Caption = 'Show &Actions'
      ShortCut = 16449
      OnClick = MenuItemClick
    end
    object itmShowActionLists: TMenuItem
      Caption = 'Show Action &Lists'
      ShortCut = 16460
      OnClick = MenuItemClick
    end
    object itmShowMenuItems: TMenuItem
      Caption = 'Show &Menu Items'
      ShortCut = 16461
      OnClick = MenuItemClick
    end
    object itmShowPropFields: TMenuItem
      Caption = 'Show &Prop Fields'
      ShortCut = 16454
    end
    object itmShowPropSets: TMenuItem
      Caption = 'Show Prop &Sets'
      ShortCut = 16467
      OnClick = MenuItemClick
    end
  end
end